home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / aijournl / 1986_10 / aiapp3.fig < prev    next >
Text File  |  1986-07-16  |  384b  |  14 lines
  1.  
  2.  FUNCTION alloc_str(typ : node_type ; s : string80) : node_ptr ;
  3.   VAR
  4.    pt : node_ptr ;
  5.   BEGIN
  6.    get_memory(pt) ;
  7.    pt^.tag := typ ;
  8.    pt^.string_data := s ;
  9.    alloc_str := pt ;
  10.   END ; (* alloc_str *)
  11.  
  12.  
  13. Figure 3 - Low level allocation routine for strings.
  14.